home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VERIFY.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  6KB  |  159 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.  
  20. ;------------------------------------------------------------------------------
  21.  
  22.     StartDisp 1
  23.     Cls
  24.     Newlines 3
  25.     If (Crc32(1, PPEPath() + "VRS-M1.PPE") <> 2.41945e+09) Goto LABEL001
  26.     PrintLn "VRS-M1.PPE VERIFIED!"
  27.     If (Crc32(1, PPEPath() + "VRS-M2.PPE") <> 1819515186) Goto LABEL001
  28.     PrintLn "VRS-M2.PPE VERIFIED!"
  29.     If (Crc32(1, PPEPath() + "VRS-M3.PPE") <> 1284190654) Goto LABEL001
  30.     PrintLn "VRS-M3.PPE VERIFIED!"
  31.     If (Crc32(1, PPEPath() + "VRS-M4.PPE") <> 3.02516e+09) Goto LABEL001
  32.     PrintLn "VRS-M4.PPE VERIFIED!"
  33.     If (Crc32(1, PPEPath() + "VRS-M5.PPE") <> 2108539021) Goto LABEL001
  34.     PrintLn "VRS-M5.PPE VERIFIED!"
  35.     If (Crc32(1, PPEPath() + "VRS-M6.PPE") <> 650450250) Goto LABEL001
  36.     PrintLn "VRS-M6.PPE VERIFIED!"
  37.     If (Crc32(1, PPEPath() + "VRS-M7.PPE") <> 3.19634e+09) Goto LABEL001
  38.     PrintLn "VRS-M7.PPE VERIFIED!"
  39.     If (Crc32(1, PPEPath() + "VRS-M9.PPE") <> 554809824) Goto LABEL001
  40.     PrintLn "VRS-M9.PPE VERIFIED!"
  41.     If (Crc32(1, PPEPath() + "VRS-M10.PPE") <> 3.08792e+09) Goto LABEL001
  42.     PrintLn "VRS-M10.PPE VERIFIED!"
  43.     If (Crc32(1, PPEPath() + "VRS-M11.PPE") <> 396983730) Goto LABEL001
  44.     PrintLn "VRS-M11.PPE VERIFIED!"
  45.     If (Crc32(1, PPEPath() + "VRS-M12.PPE") <> 1034340176) Goto LABEL001
  46.     PrintLn "VRS-M12.PPE VERIFIED!"
  47.     If (Crc32(1, PPEPath() + "VRS-M13.PPE") <> 3.5032e+09) Goto LABEL001
  48.     PrintLn "VRS-M13.PPE VERIFIED!"
  49.     If (Crc32(1, PPEPath() + "VRS-M14.PPE") <> 714742503) Goto LABEL001
  50.     PrintLn "VRS-M14.PPE VERIFIED!"
  51.     If (Crc32(1, PPEPath() + "VRS-M15.PPE") <> 3.79917e+09) Goto LABEL001
  52.     PrintLn "VRS-M15.PPE VERIFIED!"
  53.     If (Crc32(1, PPEPath() + "VRS-M16.PPE") <> 2.84344e+09) Goto LABEL001
  54.     PrintLn "VRS-M16.PPE VERIFIED!"
  55.     If (Crc32(1, PPEPath() + "VRS-M19.PPE") <> 1261034303) Goto LABEL001
  56.     PrintLn "VRS-M19.PPE VERIFIED!"
  57.     If (Crc32(1, PPEPath() + "VRS-M80.PPE") <> 3.01596e+09) Goto LABEL001
  58.     PrintLn "VRS-M80.PPE VERIFIED!"
  59.     If (Crc32(1, PPEPath() + "VRS-M81.PPE") <> 4.17935e+09) Goto LABEL001
  60.     PrintLn "VRS-M81.PPE VERIFIED!"
  61.     If (Crc32(1, PPEPath() + "VRS-M98.PPE") <> 4.09162e+09) Goto LABEL001
  62.     PrintLn "VRS-M98.PPE VERIFIED!"
  63.     If (Crc32(1, PPEPath() + "VRS-M99.PPE") <> 1388320564) Goto LABEL001
  64.     PrintLn "VRS-M99.PPE VERIFIED!"
  65.     If (Crc32(1, PPEPath() + "VRS-M100.PPE") <> 3.8694e+09) Goto LABEL001
  66.     PrintLn "VRS-M100.PPE VERIFIED!"
  67.     If (Crc32(1, PPEPath() + "VRS-M200.PPE") <> 313094704) Goto LABEL001
  68.     PrintLn "VRS-M200.PPE VERIFIED!"
  69.     If (Crc32(1, PPEPath() + "VRS-M300.PPE") <> 1832644237) Goto LABEL001
  70.     PrintLn "VRS-M300.PPE VERIFIED!"
  71.     If (Crc32(1, PPEPath() + "VRS-M400.PPE") <> 707939413) Goto LABEL001
  72.     PrintLn "VRS-M400.PPE VERIFIED!"
  73.     If (Crc32(1, PPEPath() + "VRS-M401.PPE") <> 2.78084e+09) Goto LABEL001
  74.     PrintLn "VRS-M401.PPE VERIFIED!"
  75.     If (Crc32(1, PPEPath() + "VRS-M402.PPE") <> 1756550915) Goto LABEL001
  76.     PrintLn "VRS-M402.PPE VERIFIED!"
  77.     If (Crc32(1, PPEPath() + "VRS-M450.PPE") <> 2.50706e+09) Goto LABEL001
  78.     PrintLn "VRS-M450.PPE VERIFIED!"
  79.     If (Crc32(1, PPEPath() + "VRS-M451.PPE") <> 3.05384e+09) Goto LABEL001
  80.     PrintLn "VRS-M451.PPE VERIFIED!"
  81.     If (Crc32(1, PPEPath() + "VRS-M452.PPE") <> 1821227619) Goto LABEL001
  82.     PrintLn "VRS-M452.PPE VERIFIED!"
  83.     If (Crc32(1, PPEPath() + "VRS-M453.PPE") <> 1001081254) Goto LABEL001
  84.     PrintLn "VRS-M453.PPE VERIFIED!"
  85.     If (Crc32(1, PPEPath() + "VRS-M800.PPE") <> 877272763) Goto LABEL001
  86.     PrintLn "VRS-M800.PPE VERIFIED!"
  87.     If (Crc32(1, PPEPath() + "VRS-M801.PPE") <> 3.1032e+09) Goto LABEL001
  88.     PrintLn "VRS-M801.PPE VERIFIED!"
  89.     If (Crc32(1, PPEPath() + "VRS-M802.PPE") <> 507239703) Goto LABEL001
  90.     PrintLn "VRS-M802.PPE VERIFIED!"
  91.     If (Crc32(1, PPEPath() + "VRS-M991.PPE") <> 2.43493e+09) Goto LABEL001
  92.     PrintLn "VRS-M991.PPE VERIFIED!"
  93.     If (Crc32(1, PPEPath() + "VRS-M999.PPE") <> 67037335) Goto LABEL001
  94.     PrintLn "VRS-M999.PPE VERIFIED!"
  95.     If (Crc32(1, PPEPath() + "VRS.PPE") <> 1152163497) Goto LABEL001
  96.     PrintLn "VRS.PPE VERIFIED!"
  97.     If (Crc32(1, PPEPath() + "VRSORT.COM") <> 1373518623) Goto LABEL001
  98.     PrintLn "VRSORT.COM VERIFIED!"
  99.     If (Crc32(1, PPEPath() + "ARMOR.VRS") <> 1669215811) Goto LABEL001
  100.     PrintLn "ARMOR.VRS VERIFIED!"
  101.     If (Crc32(1, PPEPath() + "MUTANT.VRS") <> 1305385406) Goto LABEL001
  102.     PrintLn "MUTANT.VRS VERIFIED!"
  103.     If (Crc32(1, PPEPath() + "USER.VRS") <> 4.00045e+09) Goto LABEL001
  104.     PrintLn "USER.VRS VERIFIED!"
  105.     If (Crc32(1, PPEPath() + "WEAPONS.VRS") <> 2.44444e+09) Goto LABEL001
  106.     PrintLn "WEAPONS.VRS VERIFIED!"
  107.     Newlines 3
  108.     PrintLn "VRS FILES VERIFIED!"
  109.     Wait
  110.     Goto LABEL002
  111.     :LABEL001
  112.     Newlines 2
  113.     PrintLn " FAILED CRC CHECKING!"
  114.     Wait
  115.     :LABEL002
  116.     FCloseAll
  117.     End
  118.  
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Usage report (before postprocessing)
  122. ;
  123. ; ■ Statements used :
  124. ;
  125. ;    1       End
  126. ;    1       Cls
  127. ;    2       Wait
  128. ;    43      Goto 
  129. ;    43      PrintLn 
  130. ;    41      If 
  131. ;    1       StartDisp 
  132. ;    3       Newlines 
  133. ;    1       FCloseAll
  134. ;
  135. ;
  136. ; ■ Functions used :
  137. ;
  138. ;    41      +
  139. ;    41      <>
  140. ;    41      PPEPath()
  141. ;    41      Crc32()
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Analysis flags : No flag
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;
  149. ; Postprocessing report
  150. ;
  151. ;    0       For/Next
  152. ;    0       While/EndWhile
  153. ;    0       If/Then or If/Then/Else
  154. ;    0       Select Case
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;                 AEGiS Corp - Break the routines, code against the machines!
  158. ;------------------------------------------------------------------------------
  159.